home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / UNDOREAD.M < prev    next >
Encoding:
Text File  |  1989-07-07  |  619 b   |  30 lines
  1.  
  2. MODULE TestFile; (*$E MOS *)
  3.  
  4. IMPORT Files, TOSIO, InOut, Text;
  5.  
  6. VAR f    : Files.File;
  7.     ch   : CHAR;
  8.     str1 : ARRAY [0..0] OF CHAR; (* 2.Fall z.B.: [0..3] *)
  9.  
  10. BEGIN
  11.   Files.Open (f, "TEST.DAT", Files.readSeqTxt);
  12.   LOOP
  13.     Text.ReadString (f, str1);
  14.     InOut.WriteString (str1);
  15.     IF Text.EOL(f) THEN
  16.       InOut.WriteLn;
  17.     END;
  18.     IF Files.EOF(f) THEN EXIT END;
  19.     Text.Read (f, ch);
  20.     IF Files.EOF(f) THEN EXIT END;
  21.     IF Text.EOL(f) THEN
  22.       InOut.WriteLn;
  23.     ELSE
  24.       Text.UndoRead (f);
  25.     END (* IF *);
  26.   END;
  27.   Files.Close(f);
  28.   InOut.Read (ch);
  29. END TestFile.
  30.